home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 41
/
Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso
/
-seriously_amiga-
/
cd-rom
/
acdb
/
test.rexx
< prev
Wrap
OS/2 REXX Batch file
|
1999-04-28
|
1KB
|
61 lines
/*
* test.rexx
* ©1999, Piotr Gapiïski
* skrypt testujâcy port Arexx'a programu ACDB
* umoûliwia automatyczne zaîadowanie pîyt, zapisywanie ich opisów
* oraz, po naciôniëciu CTRL-C, ôciâgniëcie danych z internetu
*
*/
OPTIONS RESULTS
ADDRESS ACDB
SIGNAL ON HALT
SIGNAL ON BREAK_C
CALL ADDLIB('rexxsupport.library',0,-30,0)
DO FOREVER
/*
* obsîuga CD-ROM'u
* czas na zmianë pîyty (3 sek)
* czas na wciâgniëcie przez czytnik pîyty i zamontowanie jej (5 sek)
*/
TRAY OUT
CALL DELAY(150)
TRAY IN
CALL DELAY(250)
CDID FORCE STORE
IF (result = 0) THEN DO
/*
* bîâd obsîugi CDID pîyty kompaktowej
* opis bîëdu dostëpny przez GET LASTERROR
*/
GET LASTERROR
SAY result
LEAVE
END
END
BREAK_C:
DOWNLOAD ALL
IF (result = 0) THEN DO
/*
* bîâd pobieranie opisów pîyty z internetu
* opis bîëdu dostëpny przez GET LASTERROR
*/
GET LASTERROR
SAY result
END
CALL REMLIB('rexxsupport.library')
HALT:
EXIT